home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 010 / tunes.arc / MYGIRL.BAS (.txt) < prev    next >
Encoding:
GW-BASIC  |  1985-02-28  |  1.2 KB  |  26 lines
  1. 1  'My Girl -- programmed by Steve Schlich  4/14/84
  2. 2  KEY OFF:COLOR 0,3,3
  3. 5  CLS: PRINT "An old TEMPTATIONS favorite.":FOR X=1 TO 2000:NEXT:PRINT
  4. 7  FOR X=1 TO 2
  5. 10  PLAY "MN T90 o1 L8; c4. d e g a o2 c"
  6. 20  PLAY "o1 f4. g a o2 c d f"
  7. 30  PLAY "o1 c4. d e g a o2 c"
  8. 40  PLAY "o1 f4. g a o2 c"
  9. 50  PRINT"I've ";:PLAY "o3 c ":PRINT"got ";:PLAY"d":PRINT"sun";:PLAY "e":PRINT"shine":PLAY"c4"
  10. 60  PLAY "o1 d e g a o2 c o1 f4"
  11. 70  PRINT"on ";:PLAY "o2 g":PRINT"a ";:PLAY"a":PRINT"cloud";:PLAY"o3 c4":PRINT"y ";:PLAY"o2 a4":PRINT"day.":PLAY"g4."
  12. 80  PLAY "o1 d e g a o2 c o1 f4. g a o2 c"
  13. 90  PRINT:PRINT"When ";:PLAY "o3 c ":PRINT"it's ";:PLAY"d":PRINT"cold ";:PLAY "e":PRINT"out":PLAY "c4"
  14. 100  PLAY "o1 d e g a o2 c o1 f4"
  15. 110  PRINT"got ";:PLAY "o2 g":PRINT"the ";:PLAY"a":PRINT"month ";:PLAY"o3 c4":PRINT"of ";:PLAY"o2 a4":PRINT"May.":PLAY"g4."
  16. 120  PLAY "o1 d e g a o2 c o1 f4. g a o2 c d f"
  17. 130  PRINT:PRINT"I ";:PLAY "o2 g2":PRINT"guess ";:PLAY"a2":PRINT"you'd ";:PLAY"o3 c2":PRINT"say":PLAY"d2"
  18. 140  PRINT"What ";:PLAY "o2 g4":PRINT"could ";:PLAY"g4":PRINT"make ";:PLAY"a4":PRINT"me ";:PLAY"a4":PRINT"fe";:PLAY"o3 c":PRINT"el ";:PLAY"o2 a":PRINT"this ";:PLAY"o3 c4":PRINT"way?":PLAY"D2"
  19. 150  PRINT:PRINT"My ";:PLAY "o3 c":PRINT"girl ";:PLAY"o2 g4.":PRINT"(my ";:PLAY"o3 e":PRINT"girl) ";:PLAY"c4.":PRINT"MY ";:PLAY"g":PRINT"GIRL!":PLAY"e4."
  20. 160  PRINT"Talk";:PLAY "o2 g":PRINT"in ";:PLAY"a":PRINT"'bout ";:PLAY"o3 c4 p4":PRINT"my ";:PLAY"d4":PRINT"girl.":PLAY"c4. c g g f f e e d d"
  21. 200  PLAY "o1 c4. d e g a o2 c"
  22. 210  PLAY "o1"
  23. 0  
  24. 999  CLS:NEXT X
  25. 1000  RUN "MENU.BAS"
  26.